home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d14 / demdat.arc / STKDC.SBP < prev    next >
Encoding:
Text File  |  1990-06-01  |  2.5 KB  |  140 lines
  1. SBP
  2.   ╜    STKDC
  3.   ╜    Enter Daily Exchange Rates/Stock Prices/Certificate Numbers
  4.   ╜    Last updated Jan 03, 90
  5.  
  6.   │ _ wferror
  7.  
  8. stkdc: ╜ Assign function parameters 
  9.      ╜ k% is 1 for string and 2 for numeric key
  10.  cur% 1:sto% 2:nos% 3:k% 1:frow% 10
  11.   ╔ µmb%
  12.   µcur%
  13. f$ "Currency":fkey$ "Currency":fmd$ "stkdc":frow% 12
  14.   µsto%
  15. f$ "stocks":fkey$ "Stock_Key":fmd$ "stkds"
  16.   µnos%
  17. f$ "trans":fkey$ "Transaction ref":fmd$ "stkdn":k% 2
  18.   Æ ╔
  19.   ┤ Öf$
  20.   úfkey$
  21.   ímb% nos% p ╔ ╨Trans_Type  "b"  Cert_Sent_yn  "n"
  22.   ┤ £fmd$
  23.  
  24. floop: ╜ Display from first record
  25.   vslimits
  26.   ík% 1 pckey$ fstk$ ^ckey% fstk%
  27.   vspage
  28.  
  29. fwait: ╜ Wait here for a push button
  30.  mp% 0
  31.   ╩ ╦ss13$
  32.   ╧ ▀
  33.  
  34.  ╜ Edit line
  35.   í(mp% 0 mp% lrec%) p wfwait
  36.   ╩ ╦ss4$
  37.   ╔ £ "mp%
  38.   ▀ │
  39.   ╔ µmb%
  40.   µcur%
  41.  öUSD Xrate  "mp%
  42.   µsto%
  43.  öPrice Asked  "mp% qPrice Bid  "mp%
  44.   µnos%
  45.  öCertificate_No  "mp%
  46.   Æ ╔
  47.   ┬ms1$,"",127,a%
  48.   ía% p
  49.  ╔ µmb%
  50.  µcur%
  51. Date of Xrate.CURRENCY  Q
  52.  µsto%
  53. Price Date.STOCKS  Q:Price Time.STOCKS  R
  54.  Æ ╔
  55.  ╠
  56.   ^
  57.  ík% 1 p ╔ Ñpstk$(mp%) ^ ╔ Ñpstk%(mp%)
  58.  ═ £ "mp%
  59.  £
  60.   Æ í
  61.   ▀ e
  62.   wfwait
  63.  
  64. fnext: ╜ Next page
  65.   í(k% 1  lstk$ pstk$(lrec%)) p wfwait
  66.   í(k% 2  lstk% pstk%(lrec%)) p wfwait
  67.   ík% 1 p ╔ Ñpstk$(lrec%) ^ ╔ Ñpstk%(lrec%)
  68.   ╔ ▒
  69.   wfcurr
  70.  
  71. fprev: ╜ Prev page
  72.   í(k% 1  fstk$ pstk$(1)) p wfwait
  73.   í(k% 2  fstk% pstk%(1)) p wfwait
  74.   ík% 1 p ╔ Ñpstk$(1) ^ ╔ Ñpstk%(1)
  75.   ¢i% 1 qfrow%
  76.  ╔ g
  77.   ▒i%
  78.  
  79. fcurr: ╜ Assign ckey
  80.   ík% 1 p
  81.  û"ckey$ = " fkey$
  82.   ^
  83.  û"ckey% = " fkey$
  84.   Æ í
  85.   vspage
  86.   £
  87.   wfwait
  88.  
  89. fexit: ╜ Exit
  90.   ╔ ╨
  91.   ä"menu"
  92.  
  93. slimits:  ╜ Get first and last keys
  94.   ╔ b
  95.   ík% 1 p
  96.  û"lstk$ = " fkey$
  97.  ╔ `: û"fstk$ = " fkey$
  98.   ^
  99.  û"lstk% = " fkey$
  100.  ╔ `: û"fstk% = " fkey$
  101.   Æ í
  102.   ├
  103.  
  104. spage: ╜ Displays page of records starting with ckey
  105.  ╜ Returns key array and number of records for page
  106.   ü £
  107.   ík% 1 p ╔ Ñckey$ ^ ╔ Ñckey%
  108.  j% 0
  109.   ¢i% 1 qfrow%
  110.  ═ £ "i%
  111. j% j% 1
  112.  ík% 1 p
  113.  û"pstk$(i%) = " fkey$
  114.  û"IF " fkey$ "=lstk$ then i% = frow%"
  115.  ^
  116.  û"pstk%(i%) = " fkey$
  117.  û"IF " fkey$ "=lstk% then i% = frow%"
  118.  Æ í
  119.  íi% 
  120. frow% p ╔ ▒
  121.   ▒i%
  122.   íj% frow% plrec% frow% ^lrec% j%
  123.   ├
  124.  
  125. ferror:  ╜ Error conditions
  126.  res% 0
  127.   í & 11 p
  128.  ┬ms21$,ms22$,130,a%: ía% 1 pres% 1
  129.   ^ í & 57 p
  130.  ┬ms8$,"",100,a%:res% 2
  131.   ^
  132.  ┬ (( &),ms9$,114,a%: ía% 1 pres% 3
  133.   Æ í
  134.   íres% 1 p y
  135.   íres% 2 p yfloop
  136.   íres% 3 p yfwait
  137.   É
  138.  
  139.  
  140.